FUNC FUN[SCR,LCS]; < F1, F2, F3, F4, F5, F6  
COMMON TOOT   TOOT CLAR BRIT BUZZ; 
COMMON REVRB;  
 
  < INV  .SCR  --  RANDOM NUMBER=     1
 PLAY;
 REVRB    0.000    9.783
;PRINT P1;< REVRB   1
 CLAR     0.000    0.163  D      0.700    F2    F4   0.050
;PRINT P1;< CLAR    1
 CLAR     0.163    0.163  E   
;PRINT P1;< CLAR    2
 CLAR     0.326    0.163  F   
;PRINT P1;< CLAR    3
 CLAR     0.489    0.163  G   
;PRINT P1;< CLAR    4
 CLAR     0.652    0.163  A   
;PRINT P1;< CLAR    5
 CLAR     0.815    0.163 AS   
;PRINT P1;< CLAR    6
 CLAR     0.978    0.163 CS   
;PRINT P1;< CLAR    7
 CLAR     1.141    0.163 AS   
;PRINT P1;< CLAR    8
 CLAR     1.304    0.163  A   
;PRINT P1;< CLAR    9
 CLAR     1.467    0.163  G   
;PRINT P1;< CLAR   10
 CLAR     1.630    0.163  F   
;PRINT P1;< CLAR   11
 CLAR     1.793    0.163  E   
;PRINT P1;< CLAR   12
 CLAR     1.956    0.326  F      0.700    F3
;PRINT P1;< CLAR   13
 BUZZ     1.956    0.163  D/2    0.700    F2    F6
;PRINT P1;< BUZZ    3
 BUZZ     2.119    0.163  E/2 
;PRINT P1;< BUZZ    4
 CLAR     2.282    0.326  A      0.700    F3    F4
;PRINT P1;< CLAR   14
 BUZZ     2.282    0.163  F/2    0.700    F2    F6
;PRINT P1;< BUZZ    5
 BUZZ     2.445    0.163  G/2 
;PRINT P1;< BUZZ    6
 CLAR     2.608    0.326  D*2    0.700    F3    F4
;PRINT P1;< CLAR   15
 BUZZ     2.608    0.163  A/2    0.700    F2    F6
;PRINT P1;< BUZZ    7
 BUZZ     2.771    0.163 AS/2 
;PRINT P1;< BUZZ    8
 CLAR     2.934    0.326  E      0.700    F3    F4
;PRINT P1;< CLAR   16
 BUZZ     2.934    0.163 CS/2    0.700    F2    F6
;PRINT P1;< BUZZ    9
 BUZZ     3.097    0.163 AS/2 
;PRINT P1;< BUZZ   10
 CLAR     3.260    0.326  G      0.700    F3    F4
;PRINT P1;< CLAR   17
 BUZZ     3.260    0.163  A/2    0.700    F2    F6
;PRINT P1;< BUZZ   11
 BUZZ     3.423    0.163  G/2 
;PRINT P1;< BUZZ   12
 CLAR     3.586    0.327 CS*2    0.700    F3    F4
;PRINT P1;< CLAR   18
 BUZZ     3.586    0.163  F/2    0.700    F2    F6
;PRINT P1;< BUZZ   13
 BUZZ     3.749    0.164  E/2 
;PRINT P1;< BUZZ   14
 CLAR     3.913    0.163  D*2    0.700    F2    F4
;PRINT P1;< CLAR   19
 BUZZ     3.913    0.326  F/2    0.700    F3    F6
;PRINT P1;< BUZZ   15
 CLAR     4.076    0.163  E*2    0.700    F2    F4
;PRINT P1;< CLAR   20
 CLAR     4.239    0.163  F*2 
;PRINT P1;< CLAR   21
 BUZZ     4.239    0.326  A/2    0.700    F3    F6
;PRINT P1;< BUZZ   16
 CLAR     4.402    0.163  G*2    0.700    F2    F4
;PRINT P1;< CLAR   22
 CLAR     4.565    0.163  A*2 
;PRINT P1;< CLAR   23
 BUZZ     4.565    0.326  D      0.700    F3    F6
;PRINT P1;< BUZZ   17
 CLAR     4.728    0.163 AS*2    0.700    F2    F4
;PRINT P1;< CLAR   24
 CLAR     4.891    0.163 CS*2 
;PRINT P1;< CLAR   25
 BUZZ     4.891    0.326  E/2    0.700    F3    F6
;PRINT P1;< BUZZ   18
 CLAR     5.054    0.163 AS*2    0.700    F2    F4
;PRINT P1;< CLAR   26
 CLAR     5.217    0.163  A*2 
;PRINT P1;< CLAR   27
 BUZZ     5.217    0.326  G/2    0.700    F3    F6
;PRINT P1;< BUZZ   19
 CLAR     5.380    0.163  G*2    0.700    F2    F4
;PRINT P1;< CLAR   28
 CLAR     5.543    0.163  F*2 
;PRINT P1;< CLAR   29
 BUZZ     5.543    0.326 CS      0.700    F3    F6
;PRINT P1;< BUZZ   20
 CLAR     5.706    0.163  E*2    0.700    F2    F4
;PRINT P1;< CLAR   30
 CLAR     5.869    0.326  F*2 
;PRINT P1;< CLAR   31
 BUZZ     5.869    0.326  D/2    0.700    F2    F6
;PRINT P1;< BUZZ   21
 FINISH; < INV  .SCR